Public Class ExceptionHandlerConfig
#Region " Instance control"

    Private Shared _defaultInstance As ExceptionHandlerConfig = Nothing
    Private Shared _lock As Object = New Object

    Private Sub New()
        MyBase.New()
    End Sub

    Public Shared ReadOnly Property Instance() As ExceptionHandlerConfig
        Get
            If _defaultInstance Is Nothing Then
                SyncLock _lock
                    If _defaultInstance Is Nothing Then
                        _defaultInstance = New ExceptionHandlerConfig
                    End If
                End SyncLock
            End If
            Return _defaultInstance
        End Get
    End Property
#End Region

    Dim _debugDirectory as string
    Public Property DebugDirectory As string
        Get
            Return _debugDirectory
        End Get
        Set(Byval Value As string)
            _debugDirectory = Value
        End Set
    End Property

    Dim _emailTo as string
    Public Property EmailTo As string
        Get
            Return _emailTo
        End Get
        Set(Byval Value As string)
            _emailTo = Value
        End Set
    End Property

    Dim _contactInfo as string
    Public Property ContactInfo As string
        Get
            Return _contactInfo
        End Get
        Set(Byval Value As string)
            _contactInfo = Value
        End Set
    End Property
    Dim _ignoreDebug as boolean
    Public Property IgnoreDebug As boolean
        Get
            Return _ignoreDebug
        End Get
        Set(Byval Value As boolean)
            _ignoreDebug = Value
        End Set
    End Property
    Dim _logToEventLog as boolean
    Public Property LogToEventLog As boolean
        Get
            Return _logToEventLog
        End Get
        Set(Byval Value As boolean)
            _logToEventLog = Value
        End Set
    End Property
    Dim _defaultDomain as string
    Public Property DefaultDomain As string
        Get
            Return _defaultDomain
        End Get
        Set(Byval Value As string)
            _defaultDomain = Value
        End Set
    End Property
    Dim _sMTPHost as string
    Public Property SMTPHost As string
        Get
            Return _sMTPHost
        End Get
        Set(Byval Value As string)
            _sMTPHost = Value
        End Set
    End Property
    Dim _sMTPUser as string
    Public Property SMTPUser As string
        Get
            Return _sMTPUser
        End Get
        Set(Byval Value As string)
            _sMTPUser = Value
        End Set
    End Property
    Dim _sTMPPass as string
    Public Property STMPPass As string
        Get
            Return _sTMPPass
        End Get
        Set(Byval Value As string)
            _sTMPPass = Value
        End Set
    End Property

    Dim _killAppOnException as boolean
    Public Property KillAppOnException As boolean
        Get
            Return _killAppOnException
        End Get
        Set(Byval Value As boolean)
            _killAppOnException = Value
        End Set
    End Property
    Dim _displayDialog as boolean
    Public Property DisplayDialog As boolean
        Get
            Return _displayDialog
        End Get
        Set(Byval Value As boolean)
            _displayDialog = Value
        End Set
    End Property
    Dim _logToFile as boolean
    Public Property LogToFile As boolean
        Get
            Return _logToFile
        End Get
        Set(Byval Value As boolean)
            _logToFile = Value
        End Set
    End Property
    Dim _emailScreenshot as boolean
    Public Property EmailScreenshot As boolean
        Get
            Return _emailScreenshot
        End Get
        Set(Byval Value As boolean)
            _emailScreenshot = Value
        End Set
    End Property
    Dim _takeScreenshot as boolean
    Public Property TakeScreenshot As boolean
        Get
            Return _takeScreenshot
        End Get
        Set(Byval Value As boolean)
            _takeScreenshot = Value
        End Set
    End Property
    Dim _sendEmail as boolean
    Public Property SendEmail As boolean
        Get
            Return _sendEmail
        End Get
        Set(Byval Value As boolean)
            _sendEmail = Value
        End Set
    End Property

    Dim _logToWebService as boolean
    Public Property LogToWebService As boolean
        Get
            Return _logToWebService
        End Get
        Set(Byval Value As boolean)
            _logToWebService = Value
        End Set
    End Property

End Class
